home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / LINE #24 BLUES.bas < prev    next >
BASIC Source File  |  2023-02-26  |  395b  |  5 lines
  1. 10  HOME : FOR I = 1 TO 23: VTAB I: HTAB 1: PRINT I;: NEXT 
  2. 20 MESSAGE$ = "NOTE: 40 CHARACTERS, LINE #24, NO SCROLL": GOSUB 100
  3. 30 MESSAGE$ = "LESS THAN 40 CHARACTERS": FOR I = 1 TO 2000: NEXT : GOSUB 100: VTAB 10: END 
  4. 100  HTAB 1: VTAB 24: IF  LEN(MESSAGE$) =  >40  THEN  PRINT  LEFT$(MESSAGE$,39);: POKE 2039, ASC( MID$ (MESSAGE$,40,1)) +128: RETURN 
  5. 101  PRINT MESSAGE$;: CALL  -868: RETURN